home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtstring.bb2 < prev    next >
Text File  |  2002-01-30  |  802b  |  35 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"opal.font",9
  5. Use IntuiFont 2
  6.  
  7. foo.l=GTString(0,1,20,20,150,15,"Normal",#PLACETEXT_ABOVE,50)
  8. NPrint Hex$(foo)
  9.  
  10. foo.l=GTString(0,2,20,50,150,15,"Default",#PLACETEXT_ABOVE,50,"foo!")
  11. NPrint Hex$(foo)
  12.  
  13. foo.l=GTString(0,3,20,80,150,15,"Disabled",#PLACETEXT_ABOVE|$40,50)
  14. NPrint Hex$(foo)
  15.  
  16. foo.l=GTString(0,4,20,110,150,15,"Immediate",#PLACETEXT_ABOVE|$80,50)
  17. NPrint Hex$(foo)
  18.  
  19. AddIDCMP #STRINGIDCMP
  20. Window 0,0,0,600,300,$100f,"jjlk",-1,-1
  21. DefaultOutput
  22. AttachGTList 0,0
  23. While ev.l<>#IDCMP_CLOSEWINDOW
  24.     ev.l=WaitEvent
  25.     Select ev
  26.         Case #IDCMP_GADGETDOWN
  27.             NPrint "String gadget ",GadgetHit," entered"
  28.         Case #IDCMP_GADGETUP
  29.             NPrint "String gadget ",GadgetHit," exited with code ",EventCode
  30.     End Select
  31. Wend
  32. DetachGTList 0
  33. End
  34.  
  35.